(math-div2-bignum): Use math-bignum-digit-size.

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index e9674ff938b63f58782d990872b2f24663b81c15..ecc304a5f5f06238e6fd75750b8b044323482820 100644 (file)
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -579,7 +579,7 @@ loaded and the keystroke automatically re-typed."
 
 (defun math-div2-bignum (a)   ; [l l]
   (if (cdr a)
-      (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) 500))
+      (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) (/ math-bignum-digit-size 2)))
            (math-div2-bignum (cdr a)))
     (list (/ (car a) 2))))